-- card: 2903 from stack: in.2 (US) -- bmap block id: 3523 -- flags: 0000 -- background id: 2768 -- name: ----- HyperTalk script ----- on mouseUp if the target contains "card button" then put FullSFPack(short name of the target) into cd fld 2 show cd fld 2 end if end mouseUp -- part 1 (field) -- low flags: 01 -- high flags: 0007 -- rect: left=69 top=68 right=252 bottom=434 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Text -- part 4 (button) -- low flags: 00 -- high flags: A004 -- rect: left=97 top=287 right=306 bottom=168 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Get -- part 5 (button) -- low flags: 00 -- high flags: A004 -- rect: left=173 top=287 right=306 bottom=244 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Put -- part 6 (button) -- low flags: 00 -- high flags: A004 -- rect: left=249 top=287 right=306 bottom=320 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Folder -- part 7 (button) -- low flags: 00 -- high flags: A004 -- rect: left=325 top=287 right=306 bottom=396 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Volume -- part 8 (button) -- low flags: 00 -- high flags: A004 -- rect: left=401 top=287 right=306 bottom=472 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Multiple -- part 9 (field) -- low flags: 81 -- high flags: 2004 -- rect: left=79 top=111 right=213 bottom=432 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ----- HyperTalk script ----- on mouseUp hide me end mouseUp -- part contents for card part 1 ----- text ----- FullSFPack 1.2 formerly FullFile by Frédéric RINALDI DESCRIPTION ------------ FullSFPack allows to use standard dialogs for seleting a file, folder or volume. It allows even to deal with Alias files themselves rather than with pointed entries, and adds a multiple files selection dialog. SYNTAX ------- FullSFPack([,] [,][,][,][,"DontResolveAlias"]) PARAMETRES ------------ is the action param and defines the desired dialog. is a 1 to 4 items list containing types of files to display in the dialog. Default presents all files. is a full pathname string allowing to set the current directory when the dialog pops on screen. is a string only needed with "P[ut]", and gives the default name for the new file in the dialog's edit field. is the message string appearing in the dialog. "dontResolveAlias" allows to deal with an alias file itself (System 7.0 only) rather than with the file pointed by it. Using "!", "?" or "=" as first parameter will return an online help (resp. USING ------ FullSFPack requires System 7.0. The XFCN returns the full patname of the selected file, folder or volume. With "M[ultiple]", it returns a return delimited list of all collected files. ERRORS ------- If an error occurs, FullSFPack will return : "Error : FullSFPack needs System 7.0" "Error : Missing or empty parameter" "Error : Bad action parameter" HISTORY ------- 1.2 09/02/91 • Fixed Select directory that didn't return answer 1.1 08/25/91 • Fixed bug preventing alias files to appear in italic with "M" • Added Notification Mgr call • Fixed Cancel bug with "F" 1.0 08/12/91 --------------------------------------------------------------------- This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack. Any commercial use must be licensed and aknowledged by the author. © Frederic RINALDI 1991 AppleLink: RINALDI1 CalvaCom : FR10 Compuserve : 71170,2111 -- part contents for card part 9 ----- text ----- 300 Mo:Applications:HyperCard:My Externals:US:Not Done: